BBS in a Box 15/BBS in a box XV-2.iso/Files II/Prog/M/MacOberon 4.0.sit/MacOberon 4.0/Toolbox Interfaces/MacToolbox.Mod

Oberon Text | 1993-10-25 | 16.6 KB | 298 lines | [.Ob./.Ob5]

Syntax10.Scn.Fnt
Syntax10b.Scn.Fnt
Syntax10i.Scn.Fnt
ParcElems
Alloc
MODULE MacToolbox;    (*od 25.10.93*)
(* This Module contains some essential constants, data types and routines from
the NEW Inside Macintosh volume
            Toolbox Essentials,
            plus some general data types and some convertion routines.
Edit.Open DK.MacOberonApp.Text for more information on how to create
standalone Macintosh applications using MacOberon. *)
IMPORT
    SYSTEM, IM:=MacImaging, ME:=MacMemory;
CONST
    (*Event Manager Constants*)
        nullEvent*=0; mouseDown*=1; mouseUp*=2; keyDown*=3; keyUp*=4; autoKey*=5; updateEvt*=6; diskEvt*=7;
        activateEvt*=8; osEvt*=15; everyEvent*=-1; kHighLevelEvent*=23; suspendResumeMessage*=1;
    (* Menu Manager Constants *)
        noMark*=0;hMenuCmd*=27;hierMenu*=-1;
    (*Window Manager Window Kind*)
        dialogKind*=2; userKind*=8;
    (*Window Manager FindWindow Result Codes *)
        inDesk*=0; inMenuBar*=1; inSysWindow*=2; inContent*=3; inDrag*=4; inGrow*=5; inGoAway*=6; inZoomIn*=7; inZoomOut*=8;
    (* Control Manager *)
        inButton*=10;inCheckBox*=11;inUpButton*=20;inDownButton*=21;inPageUp*=22;inPageDown*=23;inThumb*=129;
    (*Window Manager*)
        WindowPtr*=POINTER- TO WindowRecord;
        WindowRecord*=RECORD (IM.GrafPort)
            windowKind*: INTEGER; visible*, hilited*, goAwayFlag*, spareFlag*: BOOLEAN;
            strucRgn*, contRgn*, updateRgn*: IM.RgnHandle; windowDefProc*, dataHandle*: ME.Handle;
            titleHandle*: ME.StringHandle; titleWidth*: INTEGER;
            controlList*: ME.Handle; nextWindow*: WindowPtr; windowPic*: ME.Handle; refCon*: LONGINT
        END;
        ColorSpec*=RECORD
            value*:INTEGER;
            rgb*:IM.RGBColor
        END;
        WCTabPtr*=POINTER- TO WinCTab;
        WCTabHandle*=POINTER- TO RECORD p*:WCTabPtr END;
        WinCTab*=RECORD
            wCSeed*:LONGINT;
            wCReserved:INTEGER;
            ctSize*:INTEGER;
            ctTable*:ARRAY 5 OF ColorSpec
        END;
    (* Menu Manager *)
        MenuPtr*=POINTER- TO MenuInfo;
        MenuHandle*=POINTER- TO RECORD p*:MenuPtr END;
        MenuInfo*=RECORD
            menuID*:INTEGER;
            menuWidth*:INTEGER;
            menuHeight*:INTEGER;
            menuProc*:ME.Handle;
            enableFlags*:LONGINT;
            menuData*:ME.Str255
        END;
        MCTablePtr*=POINTER- TO RECORD END;
        MCTableHandle*=POINTER- TO RECORD p*:MCTablePtr END;
        MCEntryPtr*=POINTER- TO MCEntry;
        MCEntry*=RECORD
            mctID*:INTEGER;
            mctItem*:INTEGER;
            mctRGB1*:IM.RGBColor;
            mctRGB2*:IM.RGBColor;
            mctRGB3*:IM.RGBColor;
            mctRGB4*:IM.RGBColor;
            mctReserved:INTEGER
        END;
    (* Event Manager *)
        EventRecord*=RECORD
            what*: INTEGER;
            message*: LONGINT; when*: LONGINT; where*: IM.Point; modifiers*: INTEGER
        END;
        KeyMap*=ARRAY 4 OF LONGINT;
    (* Dialog Manager *)
        DialogPtr*=WindowPtr;
        DialogPeek*=POINTER- TO DialogRecord;
        DialogRecord*=RECORD
            window*:WindowRecord;
            items*:ME.Handle;
            textH*:ME.Handle;
            editField*:INTEGER;
            editOpen*:INTEGER;
            aDefItem*:INTEGER
        END;
    (* Control Manager *)
        ControlPtr*=POINTER- TO ControlRecord;
        ControlHandle*= POINTER- TO RECORD p*:ControlPtr END;
        ControlRecord*=RECORD
            nextControl*: ControlHandle;
            contrlOwner*: WindowPtr;
            contrlRect*: IM.Rect;
            contrlVis*: SHORTINT;
            contrlHilite*: SHORTINT;
            contrlValue*: INTEGER;
            contrlMin*: INTEGER;
            contrlMax*: INTEGER;
            contrlDefProc*: ME.Handle;
            contrlData*: ME.Handle;
            contrlAction*: PROCEDURE;
            contrlRfCon*: LONGINT;
            contrlTitle*: ME.Str255;
        END;
(* Str255 *)
    PROCEDURE SetStr255*(VAR theStr255: ME.Str255; chars: ARRAY OF CHAR);
        VAR i: INTEGER; ch: CHAR;
    BEGIN    i:=0;
        REPEAT    ch:=chars[i]; INC(i); theStr255[i]:=ch    UNTIL    (ch =0X) OR (i=256);
        theStr255[0]:=CHR(i-1)
    END SetStr255;
    PROCEDURE GetStr255*(VAR theStr255: ME.Str255; VAR chars: ARRAY OF CHAR);
        VAR n: INTEGER; ch: CHAR;
    BEGIN    n:=ORD(theStr255[0]);    IF    LEN(chars) < n    THEN    n:=SHORT(LEN(chars))    END;
        chars[n]:=0X;    WHILE    n > 0    DO    ch:=theStr255[n]; DEC(n); chars[n]:=ch    END
    END GetStr255;
(* Macintosh Register_Based Core OS Traps*)
    PROCEDURE- PostEvent*    0A0H, 02FH;
    PROCEDURE- OSEventAvail*    0A0H, 030H;
    PROCEDURE- GetOSEvent*    0A0H, 031H;
    PROCEDURE- FlushEvents*    0A0H, 032H;
(* Window Manager *)
    PROCEDURE- InitWindows*    0A9H, 012H;
    PROCEDURE- NewWindow*(wStorage: ME.Ptr; boundsRect: IM.Rect; title: ME.Str255; visible: BOOLEAN; theProc: INTEGER; behind: WindowPtr; goAwayFlag: BOOLEAN; refCon: LONGINT): WindowPtr 0A9H, 013H;
    PROCEDURE- GetNewWindow*(windowID: INTEGER; wStorage: ME.Ptr; behind: WindowPtr): WindowPtr 0A9H, 0BDH;
    PROCEDURE- CloseWindow*(theWindow: WindowPtr)    0A9H, 02DH;
    PROCEDURE- DisposeWindow*(theWindow: WindowPtr)    0A9H, 014H;
    PROCEDURE- NewCWindow*(wStorage: ME.Ptr;boundsRect: IM.Rect;title: ME.Str255;visible: BOOLEAN;
        procID: INTEGER;behind: WindowPtr;goAwayFlag: BOOLEAN;refCon: LONGINT): WindowPtr    0AAH,045H;
    PROCEDURE- GetNewCWindow*(windowID: INTEGER;wStorage: ME.Ptr;behind: WindowPtr): WindowPtr    0AAH,046H;
    PROCEDURE- SetWTitle*(theWindow: WindowPtr; title: ME.Str255)    0A9H, 01AH;
    PROCEDURE- GetWTitle*(theWindow: WindowPtr; VAR title: ME.Str255)    0A9H, 019H;
    PROCEDURE- SelectWindow*(theWindow: WindowPtr)    0A9H, 01FH;
    PROCEDURE- ShowWindow*(theWindow: WindowPtr)    0A9H, 015H;
    PROCEDURE- HideWindow*(theWindow: WindowPtr)    0A9H, 016H;
    PROCEDURE- BringToFront*(theWindow: WindowPtr)    0A9H, 020H;
    PROCEDURE- SendBehind*(theWindow, behindWindow: WindowPtr)    0A9H, 021H;
    PROCEDURE- FrontWindow*(): WindowPtr    0A9H, 024H;
    PROCEDURE- DrawGrowIcon*(theWindow: WindowPtr)    0A9H, 004H;
    PROCEDURE- FindWindow*(thePoint: IM.Point; VAR theWindow: WindowPtr): INTEGER    0A9H, 02CH;
    PROCEDURE- TrackGoAway*(theWindow: WindowPtr; thePt: IM.Point): BOOLEAN    0A9H, 01EH;
    PROCEDURE- TrackBox*(theWindow: WindowPtr; thePt: IM.Point; partCode: INTEGER): BOOLEAN    0A8H, 03BH;
    PROCEDURE- MoveWindow*(theWindow: WindowPtr; hGlobal, vGlobal: INTEGER; front: BOOLEAN)    0A9H, 01BH;
    PROCEDURE- DragWindow*(theWindow: WindowPtr; startPt: IM.Point; boundsRect: IM.Rect)    0A9H, 025H;
    PROCEDURE- SizeWindow*(theWindow: WindowPtr; w, h: INTEGER; fUpdate: BOOLEAN)    0A9H, 01DH;
    PROCEDURE- GrowWindow*(theWindow: WindowPtr; startPt: IM.Point; bBox: IM.Rect): LONGINT    0A9H, 02BH;
    PROCEDURE- ZoomWindow*(theWindow: WindowPtr; partCode: INTEGER; front: BOOLEAN)    0A8H, 03AH;
    PROCEDURE- PinRect*(theRect: IM.Rect;thePt: IM.Point): LONGINT    0A9H,04EH;
    PROCEDURE- DragGrayRgn*(theRgn: IM.RgnHandle;startPt: IM.Point;boundsRect: IM.Rect;
        slopRect: IM.Rect;axis: INTEGER;actionProc: PROCEDURE): LONGINT    0A9H,005H;
    PROCEDURE- ValidRect*(goodRect: IM.Rect)    0A9H, 02AH;
    PROCEDURE- ValidRgn*(goodRgn : IM.RgnHandle)    0A9H,029H;
    PROCEDURE- InvalRect*(badRect: IM.Rect)    0A9H, 028H;
    PROCEDURE- InvalRgn*(badRgn: IM.RgnHandle)    0A9H,027H;
    PROCEDURE- BeginUpdate*(theWindow: WindowPtr)    0A9H, 022H;
    PROCEDURE- EndUpdate*(theWindow: WindowPtr)    0A9H, 023H;
    PROCEDURE- SetWRefCon*(theWindow: WindowPtr;data: LONGINT)    0A9H,018H;
    PROCEDURE- GetWRefCon*(theWindow: WindowPtr): LONGINT    0A9H,017H;
    PROCEDURE- SetWindowPic*(theWindow: WindowPtr;pic: IM.PicHandle)    0A9H,02EH;
    PROCEDURE- GetWindowPic*(theWindow: WindowPtr): IM.PicHandle    0A9H,02FH;
    PROCEDURE- GetWVariant*(theWindow: WindowPtr): INTEGER    0A8H,00AH;
    PROCEDURE- GetCWMgrPort*(VAR wMgrCPort: IM.CGrafPtr)    0AAH,048H;
    PROCEDURE- SetWinColor*(theWindow: WindowPtr;newColorTable: WCTabHandle)    0AAH,041H;
    PROCEDURE- SetDeskCPat*(deskPixPat: IM.PixPatHandle)    0AAH,047H;
(* Menu Manager *)
    PROCEDURE- InitMenus*    0A9H, 030H;
    PROCEDURE- NewMenu*(menuID: INTEGER; menuTitle: ME.Str255): MenuHandle    0A9H, 031H;
    PROCEDURE- GetMenu*(resourceID: INTEGER): MenuHandle    0A9H, 0BFH;
    PROCEDURE- DisposeMenu*(theMenu: MenuHandle)    0A9H, 032H;
    PROCEDURE- AppendMenu*(menu: MenuHandle; data: ME.Str255)    0A9H, 033H;
    PROCEDURE- AddResMenu*(theMenu: MenuHandle; theType: LONGINT)    0A9H, 04DH;
    PROCEDURE- InsertResMenu*(theMenu: MenuHandle; theType: LONGINT; afterItem: INTEGER)    0A9H, 051H;
    PROCEDURE- InsMenuItem*(theMenu: MenuHandle; itemString: ME.Str255; afterItem: INTEGER)    0A8H, 026H;
    PROCEDURE- DelMenuItem*(theMenu: MenuHandle; item: INTEGER)    0A9H, 052H;
    PROCEDURE- InsertMenu*(theMenu: MenuHandle; beforeID: INTEGER)    0A9H, 035H;
    PROCEDURE- DrawMenuBar*()    0A9H, 037H;
    PROCEDURE- InvalMenuBar*()    0A8H, 01DH;
    PROCEDURE- DeleteMenu*(menuID: INTEGER)    0A9H, 036H;
    PROCEDURE- ClearMenuBar*()    0A9H, 034H;
    PROCEDURE- GetNewMBar*(menuBarID: INTEGER): ME.Handle    0A9H, 0C0H;
    PROCEDURE- GetMenuBar*(): ME.Handle    0A9H, 03BH;
    PROCEDURE- SetMenuBar*(menuList: ME.Handle)    0A9H, 03CH;
    PROCEDURE- MenuChoice*(): LONGINT    0AAH, 066H;
    PROCEDURE- MenuSelect*(startPt: IM.Point): LONGINT    0A9H, 03DH;
    PROCEDURE- MenuKey*(ch: INTEGER): LONGINT    0A9H, 03EH;
    PROCEDURE- HiliteMenu*(menuID: INTEGER)    0A9H, 038H;
    PROCEDURE- PopUpMenuSelect*(menu: MenuHandle; top, left, popUpItem: INTEGER): LONGINT    0A8H, 00BH;
    PROCEDURE- SetItem*(theMenu: MenuHandle; item: INTEGER; itemString: ME.Str255)    0A9H, 047H;
    PROCEDURE- GetItem*(theMenu: MenuHandle; item: INTEGER; VAR itemString: ME.Str255)    0A9H, 046H;
    PROCEDURE- DisableItem*(theMenu: MenuHandle; item: INTEGER)    0A9H, 03AH;
    PROCEDURE- EnableItem*(theMenu: MenuHandle; item: INTEGER)    0A9H, 039H;
    PROCEDURE- CheckItem*(theMenu: MenuHandle; item: INTEGER; checked: BOOLEAN)    0A9H, 045H;
    PROCEDURE- SetItemMark*(theMenu: MenuHandle; item: INTEGER; markChar: INTEGER)    0A9H, 044H;
    PROCEDURE- GetItemMark*(theMenu: MenuHandle; item: INTEGER; VAR markChar: INTEGER)    0A9H, 043H;
    PROCEDURE- SetItemIcon*(theMenu: MenuHandle; item: INTEGER; icon: INTEGER)    0A9H, 040H;
    PROCEDURE- GetItemIcon*(theMenu: MenuHandle; item: INTEGER; VAR iconNum: INTEGER)    0A9H, 03FH;
    PROCEDURE- SetItemStyle*(theMenu: MenuHandle; item, chStyle: INTEGER)    0A9H, 042H;
    PROCEDURE- GetItemStyle*(theMenu: MenuHandle; item: INTEGER; VAR chStyle: INTEGER)    0A9H, 041H;
    PROCEDURE- GetItemCmd*(theMenu: MenuHandle; item: INTEGER; VAR cmdChar: INTEGER)    0A8H, 04EH;
    PROCEDURE- SetItemCmd*(theMenu: MenuHandle; item: INTEGER; cmdChar: INTEGER)    0A8H, 04FH;
    PROCEDURE- CalcMenuSize*(theMenu: MenuHandle)    0A9H, 048H;
    PROCEDURE- CountMItems*(theMenu: MenuHandle): INTEGER    0A9H, 050H;
    PROCEDURE- GetMHandle*(menuID: INTEGER): MenuHandle    0A9H, 049H;
    PROCEDURE- FlashMenuBar*(menuID: INTEGER)    0A9H, 04CH;
    PROCEDURE- SetMenuFlash*(count: INTEGER)    0A9H, 04AH;
    PROCEDURE- InitProcMenu*(resID: INTEGER)    0A8H, 008H;
    PROCEDURE- DelMCEntries*(menuID: INTEGER;menuItem: INTEGER)    0AAH,060H;
    PROCEDURE- GetMCInfo(): MCTableHandle    0AAH,061H;
    PROCEDURE- SetMCInfo*(menuCTbl: MCTableHandle)    0AAH,062H;
    PROCEDURE- DispMCInfo*(menuCTbl: MCTableHandle)    0AAH,063H;
    PROCEDURE- GetMCEntry*(menuID: INTEGER;menuItem: INTEGER): ME.Ptr    0AAH,064H;
    PROCEDURE- SetMCEntries*(numEntries: INTEGER;menuCEntries: MCTablePtr)    0AAH,065H;
(* Dialog Manager *)
    PROCEDURE- InitDialogs*(restartProc: PROCEDURE)    0A9H, 07BH;
    PROCEDURE- ErrorSound*(soundProc: PROCEDURE(soundNo:INTEGER))    0A9H,08CH;
    PROCEDURE- SetDAFont*(fontNum: INTEGER)    031H,0DFH,00AH,0FAH;
    PROCEDURE- NewDialog*(wStorage: ME.Ptr; boundsRect: IM.Rect; title: ME.Str255; visible: BOOLEAN; procID: INTEGER; behind: WindowPtr; goAwayFlag: BOOLEAN; refCon: LONGINT; itmLstHndl: ME.Handle): DialogPtr    0A9H, 07DH;
    PROCEDURE- GetNewDialog*(dialogID: INTEGER; dStorage: ME.Ptr; behind: WindowPtr): DialogPtr    0A9H, 07CH;
    PROCEDURE- CloseDialog*(theDialog: DialogPtr)    0A9H, 082H;
    PROCEDURE- DisposeDialog*(theDialog: DialogPtr)    0A9H, 083H;
    PROCEDURE- CouldDialog*(dialogID: INTEGER)    0A9H, 079H;
    PROCEDURE- FreeDialog*(dialogID: INTEGER)    0A9H, 07AH;
    PROCEDURE- Alert*(alertID: INTEGER; filterProc: PROCEDURE): INTEGER    0A9H, 085H;
    PROCEDURE- StopAlert*(alertID: INTEGER; filterProc: PROCEDURE): INTEGER    0A9H, 086H;
    PROCEDURE- NoteAlert*(alertID: INTEGER; filterProc: PROCEDURE): INTEGER    0A9H, 087H;
    PROCEDURE- CautionAlert*(alertID: INTEGER; filterProc: PROCEDURE): INTEGER    0A9H, 088H;
    PROCEDURE- CouldAlert*(alertID: INTEGER)    0A9H, 089H;
    PROCEDURE- FreeAlert*(alertID: INTEGER)    0A9H, 08AH;
    PROCEDURE- ParamText*(param0, param1, param2, param3: ME.Str255)    0A9H, 08BH;
    PROCEDURE- GetDItem*(theDialog: DialogPtr; itemNo: INTEGER; VAR itemType: INTEGER; VAR item: ME.Handle; VAR box: IM.Rect)    0A9H, 08DH;
    PROCEDURE- SetDItem*(theDialog: DialogPtr; itemNo, itemType: INTEGER; item: ME.Handle; box: IM.Rect)    0A9H, 08EH;
    PROCEDURE- GetIText*(item: ME.Handle; VAR text: ME.Str255)    0A9H, 090H;
    PROCEDURE- SetIText*(item: ME.Handle; text: ME.Str255)    0A9H, 08FH;
    PROCEDURE- SelIText*(theDialog: DialogPtr; itemNo, strtSel, endSel: INTEGER)    0A9H, 07EH;
    PROCEDURE- HideDItem*(theDialog: DialogPtr; itemNo: INTEGER)    0A8H, 027H;
    PROCEDURE- ShowDItem*(theDialog: DialogPtr; itemNo: INTEGER)    0A8H, 028H;
    PROCEDURE- FindDItem*(theDialog: DialogPtr; thePt: IM.Point): INTEGER    0A9H, 084H;
    PROCEDURE- ModalDialog*(filterProc: PROCEDURE; VAR itemHit: INTEGER)    0A9H, 091H;
    PROCEDURE- IsDialogEvent*(theEvent: EventRecord): BOOLEAN 0A9H, 07FH;
    PROCEDURE- DialogSelect*(theEvent: EventRecord; VAR theDialog: DialogPtr; VAR itemHit: INTEGER): BOOLEAN 0A9H, 080H;
    PROCEDURE- DrawDialog*(theDialog: DialogPtr)    0A9H, 081H;
    PROCEDURE- UpdtDialog*(theDialog: DialogPtr; updateRgn: IM.RgnHandle)    0A9H, 078H;
(* Desk Manager *)
    PROCEDURE- OpenDeskAcc*(theAcc: ME.Str255): INTEGER    0A9H, 0B6H;
    PROCEDURE- CloseDeskAcc*(refNum: INTEGER)    0A9H, 0B7H;
    PROCEDURE- SystemClick*(theEvent: EventRecord; theWindow: WindowPtr)    0A9H, 0B3H;
    PROCEDURE- SystemEdit*(editCmd: INTEGER): BOOLEAN    0A9H, 0C2H;
    PROCEDURE- SystemTask*()    0A9H, 0B4H;
    PROCEDURE- SystemEvent*(theEvent: EventRecord): BOOLEAN    0A9H, 0B2H;
    PROCEDURE- SystemMenu*(menuResult: LONGINT)    0A9H, 0B5H;
(* Event Manager *)
    PROCEDURE- GetNextEvent*(mask: INTEGER; VAR event: EventRecord) : BOOLEAN    0A9H, 070H;
    PROCEDURE- WaitNextEvent*(mask: INTEGER; VAR event: EventRecord; sleep: LONGINT; mouseRgn: IM.RgnHandle): BOOLEAN    0A8H, 60H;
    PROCEDURE- EventAvail*(eventMask: INTEGER;VAR theEvent: EventRecord): BOOLEAN    0A9H, 071H;
    PROCEDURE- GetKeys*(VAR theKeys: KeyMap)    0A9H, 076H;
    PROCEDURE- GetMouse*(VAR mouseLoc: IM.Point)    0A9H, 072H;
    PROCEDURE- Button*() : BOOLEAN    0A9H, 074H;
    PROCEDURE- StillDown*() : BOOLEAN    0A9H, 073H;
    PROCEDURE- WaitMouseUp*() : BOOLEAN    0A9H, 077H;
    PROCEDURE- TickCount*(): LONGINT    0A9H, 075H;
    PROCEDURE- GetDblTime*() : LONGINT    02EH,0B8H,002H,0F0H;
    PROCEDURE- GetCaretTime*() : LONGINT    02EH,0B8H,002H,0F4H;
(* Control Manager *)
    PROCEDURE- NewControl*(theWindow: WindowPtr;boundsRect: IM.Rect;title: ME.Str255;
        visible: BOOLEAN;value: INTEGER;min: INTEGER;max: INTEGER;procID: INTEGER;
        refCon: LONGINT): ControlHandle    0A9H,054H;
    PROCEDURE- SetCTitle*(theControl: ControlHandle;title: ME.Str255)    0A9H,05FH;
    PROCEDURE- GetCTitle*(theControl: ControlHandle;VAR title: ME.Str255)    0A9H,05EH;
    PROCEDURE- GetNewControl*(controlID: INTEGER;owner: WindowPtr): ControlHandle    0A9H,0BEH;
    PROCEDURE- DisposeControl*(theControl: ControlHandle)    0A9H,055H;
    PROCEDURE- KillControls*(theWindow: WindowPtr)    0A9H,056H;
    PROCEDURE- HideControl*(theControl: ControlHandle)    0A9H,058H;
    PROCEDURE- ShowControl*(theControl: ControlHandle)    0A9H,057H;
    PROCEDURE- DrawControls*(theWindow: WindowPtr)    0A9H,069H;
    PROCEDURE- Draw1Control*(theControl: ControlHandle)    0A9H,06DH;
    PROCEDURE- HiliteControl*(theControl: ControlHandle;hiliteState: INTEGER)    0A9H,05DH;
    PROCEDURE- UpdtControl*(theWindow: WindowPtr;updateRgn: IM.RgnHandle)    0A9H,053H;
    PROCEDURE- UpdateControls*(theWindow: WindowPtr;updateRgn: IM.RgnHandle)    0A9H,053H;
    PROCEDURE- MoveControl*(theControl: ControlHandle;h: INTEGER;v: INTEGER)    0A9H,059H;
    PROCEDURE- SizeControl*(theControl: ControlHandle;w: INTEGER;h: INTEGER)    0A9H,05CH;
    PROCEDURE- SetCtlValue*(theControl: ControlHandle;theValue: INTEGER)    0A9H,063H;
    PROCEDURE- GetCtlValue*(theControl: ControlHandle): INTEGER    0A9H,060H;
    PROCEDURE- SetCtlMin*(theControl: ControlHandle;minValue: INTEGER)    0A9H,064H;
    PROCEDURE- GetCtlMin*(theControl: ControlHandle): INTEGER    0A9H,061H;
    PROCEDURE- SetCtlMax*(theControl: ControlHandle;maxValue: INTEGER)    0A9H,065H;
    PROCEDURE- GetCtlMax*(theControl: ControlHandle): INTEGER    0A9H,062H;
    PROCEDURE- SetCRefCon*(theControl: ControlHandle;data: LONGINT)    0A9H,05BH;
    PROCEDURE- GetCRefCon*(theControl: ControlHandle): LONGINT    0A9H,05AH;
    PROCEDURE- SetCtlAction*(theControl: ControlHandle;actionProc: PROCEDURE)    0A9H,06BH;
    PROCEDURE- GetCtlAction*(theControl: ControlHandle): ME.Ptr    0A9H,06AH;
    PROCEDURE- DragControl*(theControl: ControlHandle;startPt: IM.Point;limitRect: IM.Rect;
        slopRect: IM.Rect;axis: INTEGER)    0A9H,067H;
    PROCEDURE- TestControl*(theControl: ControlHandle;thePt: IM.Point): INTEGER    0A9H,066H;
    PROCEDURE- TrackControl*(theControl: ControlHandle;thePoint: IM.Point;actionProc: PROCEDURE(control : ControlHandle;part : INTEGER)): INTEGER    0A9H,068H;
    PROCEDURE- FindControl*(thePoint: IM.Point;theWindow: WindowPtr;VAR theControl: ControlHandle): INTEGER 0A9H,06CH;
    PROCEDURE- GetCVariant*(theControl: ControlHandle): INTEGER    0A8H,009H;
END MacToolbox.